object ChoosePaymentForm: TChoosePaymentForm Left = 513 Top = 362 BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'Payment' ClientHeight = 126 ClientWidth = 377 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poMainFormCenter PixelsPerInch = 96 TextHeight = 13 object label1: TLabel Left = 16 Top = 8 Width = 130 Height = 13 Caption = 'How would you like to pay?' end object CreditCardRadioButton: TRadioButton Left = 24 Top = 32 Width = 345 Height = 17 Caption = 'Visa, Mastercard, Eurocard, Visa Debit, Switch, Solo, Delta, or ' + 'JCB' Checked = True TabOrder = 0 TabStop = True end object AmericanExpressRadioButton: TRadioButton Left = 24 Top = 56 Width = 113 Height = 17 Caption = 'American Express' TabOrder = 1 end object OKButton: TButton Left = 200 Top = 88 Width = 75 Height = 25 Caption = 'OK' Default = True TabOrder = 2 OnClick = OKButtonClick end object CancelButton: TButton Left = 288 Top = 88 Width = 75 Height = 25 Cancel = True Caption = 'Cancel' TabOrder = 3 OnClick = CancelButtonClick end end